home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / glisp.zoo / TT0.GL < prev    next >
Text File  |  1990-08-04  |  413b  |  17 lines
  1. "catch/throw/unwind-protect test. Should print :
  2. debut c1 c2 le-throw fin-unwind-protect fin-progn"
  3. (progn
  4.   (print "debut")
  5.   (catch :c1
  6.      (print "c1")
  7.      (unwind-protect
  8.        (catch :c2
  9.          (print "c2")
  10.          (throw :c1
  11.             (print "le-throw")
  12.             999)
  13.          (print "fin-c2"))
  14.         (print "fin-unwind-protect"))
  15.      (print "fin-c1"))
  16.    (print "fin-progn"))
  17.